home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / POLAREDI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  4.9 KB  |  178 lines
  1. {****************************************}
  2. {    TPolarSeries Editor Dialog          }
  3. { Copyright (c) 1996-98 by David Berneda }
  4. {****************************************}
  5. {$I teedefs.inc}
  6. unit PolarEdi;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, Series, TeePolar,
  13.   Teengine
  14.   {$IFDEF D1}
  15.   , TeeUpDow, Spin
  16.   {$ELSE} 
  17.   , ComCtrls
  18.   {$ENDIF}
  19.   ;
  20.  
  21. type
  22.   TPolarSeriesEditor = class(TForm)
  23.     CBCircled: TCheckBox;
  24.     SERotation: TEdit;
  25.     LRotation: TLabel;
  26.     BPiePen: TButton;
  27.     SEXRadius: TEdit;
  28.     Label2: TLabel;
  29.     Label3: TLabel;
  30.     SEYRadius: TEdit;
  31.     Button2: TButton;
  32.     CheckBox1: TCheckBox;
  33.     LAngleInc: TLabel;
  34.     SEAngleInc: TEdit;
  35.     BBackPieColor: TBitBtn;
  36.     Label8: TLabel;
  37.     SERadiusInc: TEdit;
  38.     UDYRadius: TUpDown;
  39.     UDXRadius: TUpDown;
  40.     UDRotation: TUpDown;
  41.     UDRadiusInc: TUpDown;
  42.     UDAngleInc: TUpDown;
  43.     BBrush: TButton;
  44.     GroupBox1: TGroupBox;
  45.     Button1: TButton;
  46.     CBAngleLabels: TCheckBox;
  47.     CBLabelsRot: TCheckBox;
  48.     procedure FormShow(Sender: TObject);
  49.     procedure CBCircledClick(Sender: TObject);
  50.     procedure SERotationChange(Sender: TObject);
  51.     procedure BPiePenClick(Sender: TObject);
  52.     procedure SEXRadiusChange(Sender: TObject);
  53.     procedure SEYRadiusChange(Sender: TObject);
  54.     procedure Button2Click(Sender: TObject);
  55.     procedure CheckBox1Click(Sender: TObject);
  56.     procedure SEAngleIncChange(Sender: TObject);
  57.     procedure BBackPieColorClick(Sender: TObject);
  58.     procedure SERadiusIncChange(Sender: TObject);
  59.     procedure FormCreate(Sender: TObject);
  60.     procedure BBrushClick(Sender: TObject);
  61.     procedure CBAngleLabelsClick(Sender: TObject);
  62.     procedure Button1Click(Sender: TObject);
  63.     procedure CBLabelsRotClick(Sender: TObject);
  64.   private
  65.     { Private declarations }
  66.     CreatingForm:Boolean;
  67.   public
  68.     { Public declarations }
  69.     Polar:TCustomPolarSeries;
  70.   end;
  71.  
  72. implementation
  73.  
  74. {$R *.DFM}
  75. Uses BrushDlg,PenDlg,TeePoEdi;
  76.  
  77. procedure TPolarSeriesEditor.FormShow(Sender: TObject);
  78. begin
  79.   Screen.Cursor:=crDefault;
  80.   Polar:=TCustomPolarSeries(Tag);
  81.   With Polar do
  82.   begin
  83.     CBCircled.Checked       :=Circled;
  84.     CheckBox1.Checked       :=CloseCircle;
  85.     UDRotation.Position     :=RotationAngle;
  86.     UDXRadius.Position      :=CustomXRadius;
  87.     UDYRadius.Position      :=CustomYRadius;
  88.     UDAngleInc.Position     :=Round(AngleIncrement);
  89.     UDRadiusInc.Position    :=Round(RadiusIncrement);
  90.     CBAngleLabels.Checked   :=CircleLabels;
  91.     CBLabelsRot.Checked     :=CircleLabelsRotated;
  92.     ShowControls(Polar is TPolarSeries,[ LRotation,UDRotation,SERotation,
  93.                                          LAngleInc,UDAngleInc,SEAngleInc]);
  94.   end;
  95.   TeeInsertPointerForm(Parent,Polar.Pointer);
  96.   CreatingForm:=False;
  97. end;
  98.  
  99. procedure TPolarSeriesEditor.CBCircledClick(Sender: TObject);
  100. begin
  101.   Polar.Circled:=CBCircled.Checked;
  102. end;
  103.  
  104. procedure TPolarSeriesEditor.SERotationChange(Sender: TObject);
  105. begin
  106.   if not CreatingForm then Polar.RotationAngle:=UDRotation.Position;
  107. end;
  108.  
  109. procedure TPolarSeriesEditor.BPiePenClick(Sender: TObject);
  110. begin
  111.   EditChartPen(Self,Polar.CirclePen);
  112. end;
  113.  
  114. procedure TPolarSeriesEditor.SEXRadiusChange(Sender: TObject);
  115. begin
  116.   if not CreatingForm then Polar.CustomXRadius:=UDXRadius.Position;
  117. end;
  118.  
  119. procedure TPolarSeriesEditor.SEYRadiusChange(Sender: TObject);
  120. begin
  121.   if not CreatingForm then Polar.CustomYRadius:=UDYRadius.Position;
  122. end;
  123.  
  124. procedure TPolarSeriesEditor.Button2Click(Sender: TObject);
  125. begin
  126.   EditChartPen(Self,Polar.Pen);
  127.   Polar.SeriesColor:=Polar.Pen.Color;
  128. end;
  129.  
  130. procedure TPolarSeriesEditor.CheckBox1Click(Sender: TObject);
  131. begin
  132.   Polar.CloseCircle:=CheckBox1.Checked;
  133. end;
  134.  
  135. procedure TPolarSeriesEditor.SEAngleIncChange(Sender: TObject);
  136. begin
  137.   if not CreatingForm then Polar.AngleIncrement:=UDAngleInc.Position;
  138. end;
  139.  
  140. procedure TPolarSeriesEditor.BBackPieColorClick(Sender: TObject);
  141. begin
  142.   Polar.CircleBackColor:=EditColor(Self,Polar.CircleBackColor);
  143. end;
  144.  
  145. procedure TPolarSeriesEditor.SERadiusIncChange(Sender: TObject);
  146. begin
  147.   if not CreatingForm then Polar.RadiusIncrement:=UDRadiusInc.Position;
  148. end;
  149.  
  150. procedure TPolarSeriesEditor.FormCreate(Sender: TObject);
  151. begin
  152.   CreatingForm:=True;
  153. end;
  154.  
  155. procedure TPolarSeriesEditor.BBrushClick(Sender: TObject);
  156. begin
  157.   EditChartBrush(Self,Polar.Brush);
  158. end;
  159.  
  160. procedure TPolarSeriesEditor.CBAngleLabelsClick(Sender: TObject);
  161. begin
  162.   Polar.CircleLabels:=CBAngleLabels.Checked;
  163. end;
  164.  
  165. procedure TPolarSeriesEditor.Button1Click(Sender: TObject);
  166. begin
  167.   With Polar do CircleLabelsFont:=InternalEditFont(Self,CircleLabelsFont);
  168. end;
  169.  
  170. procedure TPolarSeriesEditor.CBLabelsRotClick(Sender: TObject);
  171. begin
  172.   Polar.CircleLabelsRotated:=CBLabelsRot.Checked;
  173. end;
  174.  
  175. initialization
  176.   RegisterClass(TPolarSeriesEditor);
  177. end.
  178.